// Copyright [2020] <unknown>
#include <bits/stdc++.h>
using namespace std;
// #define ONLINE_JUDGE
#ifndef ONLINE_JUDGE
#define dbg(x...) { cerr << "\033[32;1m" << #x << " -> "; err(x); }
void err() { cerr << "\033[39;0m" << endl; }
template<typename T, typename... A>
void err(T a, A... x) { cerr << a << ' '; err(x...); }
#else
#define dbg(...)
#endif

#define sz(x) ((int)x.size())

typedef long long LL;
const int N = 1e5+50;
int n, m;
int a[N];
int main(int argc, char const *argv[]) {
    // code
    scanf("%d%d", &n, &m);
    int sum = 0;
    for (int i=0; i<n; ++i) {
        scanf("%d", &a[i]);
        sum += a[i];
    }
    int x = (sum + 4*m-1) / (4*m);
    int cnt = 0;
    for (int i=0; i<n; ++i) {
        if (a[i] >= x)
            ++cnt;
    }
    if (cnt >= m)
        puts("Yes");
    else
        puts("No");
    return 0;
}
